FM Towns: Free Software Collection 4/FM Towns Free Software Collection 4 - Disc 1.iso/msdos/dbhamlog/glp.prg

Text File | 1991-10-18 | 2KB | 95 lines

******   格子位置  検索  ************
*******   GLP.PRG  ** T.CHINO **
SET ORDER TO 5
SET EXACT OFF
DO WHILE .T. && *****************************************0
STORE "      " TO G
  @ 22,20 SAY "     検索する 格子位置は   ? " GET  G
  READ
  CLEAR GET

IF G=" "
RETURN
ENDIF

CLEAR
GOTO TOP

G=TRIM(G)
********
FIND &G
**SEEK F

SET CURSOR OFF
STORE 6 TO Y
DO WHILE .NOT. EOF()
SET COLOR TO BG
  @ 1,4   SAY "格子位置"
SET COLOR TO GR
  @ 2,4   SAY G
  SET COLOR TO BR
  @ 1,15   SAY "*************************************************"
  @ 2,15   SAY "*                                               *"
  @ 3,15   SAY "********************************* 周波数帯.PRG **"
SET COLOR TO GR
  @ 2,18   SAY "アマチュア 無 線 ＱＳＯ ログ 管 理 システム"
SET COLOR TO BG
    @ 4,1 SAY "月/日/年  呼出符号 電波 周波数 氏  名     住         所              JCC_G QSL"
SET COLOR TO BR
    @ 5,1 SAY "------------------------------------------------------------------------------"
DO WHILE .T.
     L=LEN(G)
     GLL=LEFT(GL,L)
  IF GLL<>G .OR. LEN(TRIM(GLL))<>L
    EXIT
  ENDIF

 SET COLOR TO G
    @ Y,1  SAY MMDDYY
    @ Y,11 SAY CALL
    @ Y,20 SAY WAVE
    @ Y,26 SAY FREQ
    @ Y,32 SAY NAME
    @ Y,43 SAY ADDRES
    @ Y,70 SAY JCC_G
    @ Y,76 SAY QSL
    STORE Y+1 TO Y
     IF Y>=21
      SET COLOR TO GR
        WAIT
        CLEAR
        STORE 6 TO Y
        SKIP
        EXIT
     ENDIF
    SKIP
  ENDDO

  IF GLL<>G .OR. LEN(TRIM(GLL))<>L
   EXIT
  ENDIF

 ENDDO
SET COLOR TO R
@ 22,0 SAY " 該当 デ－タの 検索 終了 です "

SET CURSOR ON
SET COLOR TO GR

STORE " " TO PRN
@ 23,0 SAY " 検索結果を印刷しますか　？ ( Y/N )" GET PRN
READ
CLEAR GET
IF PRN="Y"
SET COLOR TO G
@ 22,0 SAY "       検索 デ－タの 印刷中 です            "
DO INJIGL && *********************************************** 印刷分岐
ENDIF

@ 23,0 SAY "                                            "
@ 22,0 SAY "                                            "
LOOP
ENDDO && ************************0
SET CURSOR ON
RETURN